Dit voorbeeld maakt gebruik van de instructie While...Wend om een tellervariabele te verhogen. De instructies in de lus worden uitgevoerd zolang de voorwaarde Waar als resultaat geeft.
Dim Counter
Counter = 0 ' Initialize variable.
While Counter < 20 ' Test value of Counter.
Counter = Counter + 1 ' Increment Counter.
Wend ' End While loop when Counter > 19.
Debug.Print Counter ' Prints 20 in the Immediate window.